﻿<%@  language="vbscript" codepage="65001" %>
<!--#include file="../../inc/conn.asp"-->
<!--#include file="../../inc/cf.asp"-->
<!--#include file="../../inc/object.asp"-->
<!--#include file="../../inc/function.asp"-->
<% 
dim action,f,fso
action=getForm("d","")
f=getForm("f","")
if IsRemotePost() then
    Response.Write("警告!!只能从" & conSiteDomain & " 上提交数据<br />你的IP已被记录以作参考之用")
else
    if action="d" then 
        set fso=server.CreateObject("Scripting.FileSystemObject")
        if fso.FileExists(Server.MapPath(f)) then
            fso.DeleteFile(Server.MapPath(f))            
        end if
        if fso.FileExists(Server.MapPath("../" &f)) then
            fso.DeleteFile(Server.MapPath("../" &f))            
        end if
        Response.Write("删除成功")
        set fso=nothing  
    end if
end if
%>
<%call closeconn %>
